(defun von-neumann-neighborhood (field x y x-size y-size)
    (+ (aref field y (mod (1- x) x-size))
       (aref field y (mod (1+ x) x-size))
       (aref field (mod (1- y) y-size) x)
       (aref field (mod (1+ y) y-size) x)))
